home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / misc / emu / arosdev.lha / AROS / rom / exec / closedevice.c < prev    next >
C/C++ Source or Header  |  1997-01-09  |  2KB  |  99 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: closedevice.c,v 1.7 1997/01/01 03:46:07 ldp Exp $
  4.     $Log: closedevice.c,v $
  5.     Revision 1.7  1997/01/01 03:46:07  ldp
  6.     Committed Amiga native (support) code
  7.  
  8.     Changed clib to proto
  9.  
  10.     Revision 1.6  1996/12/10 13:51:40  aros
  11.     Moved all #include's in the first column so makedepend can see it.
  12.  
  13.     Revision 1.5  1996/10/24 15:50:46  aros
  14.     Use the official AROS macros over the __AROS versions.
  15.  
  16.     Revision 1.4  1996/08/13 13:55:59  digulla
  17.     Replaced AROS_LA by AROS_LHA
  18.     Replaced some AROS_LH*I by AROS_LH*
  19.     Sorted and added includes
  20.  
  21.     Revision 1.3  1996/08/01 17:41:07  digulla
  22.     Added standard header for all files
  23.  
  24.     Desc:
  25.     Lang: english
  26. */
  27. #include <exec/execbase.h>
  28. #include <exec/io.h>
  29. #include <dos/dos.h>
  30. #include <aros/libcall.h>
  31. #include <proto/exec.h>
  32.  
  33. /*****************************************************************************
  34.  
  35.     NAME */
  36.  
  37.     AROS_LH1(void, CloseDevice,
  38.  
  39. /*  SYNOPSIS */
  40.     AROS_LHA(struct IORequest *, iORequest, A1),
  41.  
  42. /*  LOCATION */
  43.     struct ExecBase *, SysBase, 75, Exec)
  44.  
  45. /*  FUNCTION
  46.     Closes a previously opened device. Any outstanding I/O requests must
  47.     be finished. It is safe to call CloseDevice with a cleared iorequest
  48.     structure or one that failed to open.
  49.  
  50.     INPUTS
  51.     iORequest - Pointer to iorequest structure.
  52.  
  53.     RESULT
  54.  
  55.     NOTES
  56.  
  57.     EXAMPLE
  58.  
  59.     BUGS
  60.  
  61.     SEE ALSO
  62.     OpenDevice().
  63.  
  64.     INTERNALS
  65.  
  66.     HISTORY
  67.  
  68. ******************************************************************************/
  69. {
  70.     AROS_LIBFUNC_INIT
  71.  
  72.     /* Single-thread the close routine. */
  73.     Forbid();
  74.  
  75.     /* Something to do? */
  76.     if(iORequest->io_Device!=NULL)
  77.     {
  78.     (void)AROS_LVO_CALL1(BPTR,
  79.         AROS_LCA(struct IORequest *,iORequest, A1),
  80.         struct Device *,iORequest->io_Device,2,
  81.     );
  82.     /*
  83.         Normally you'd expect the device to be expunged if this returns
  84.         non-zero, but this is only exec which doesn't know anything about
  85.         seglists - therefore dos.library has to SetFunction() into this
  86.         vector for the additional functionality.
  87.     */
  88.  
  89.     /* Trash device field */
  90.     iORequest->io_Device=(struct Device *)-1;
  91.     }
  92.  
  93.     /* All done. */
  94.     Permit();
  95.  
  96.     AROS_LIBFUNC_EXIT
  97. } /* CloseDevice */
  98.  
  99.